home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Guides / PicsData / Rexx / PZ_MakeContact.rexx next >
OS/2 REXX Batch file  |  1993-11-11  |  2KB  |  81 lines
  1. /*
  2. **  $VER: $Id: PZ_MakeContact.rexx,v 5.0 1993/11/12 01:15:46 chris Exp $
  3. **  Copyright (C) 1992, 1993 by Christian A. Weber, Zürich, Switzerland.
  4. **
  5. **  Creates a big picture out of some small ones which must be in
  6. **  T:__contacts/ and have numbers from 0 as names.
  7. **
  8. **  You may wish to change MAXMEM for ADPro if you don't have enough RAM,
  9. **  and the delay after loading if you have a slow HD :)
  10. */
  11.  
  12. options results
  13. arg adprodir numx numy sizex sizey destname
  14. address 'ADPro'
  15.  
  16.  
  17. /*
  18. ** Space between two pictures in pixels
  19. */
  20. XSPACING=16
  21. YSPACING=16
  22.  
  23. sizex = sizex + XSPACING
  24. sizey = sizey + YSPACING
  25.  
  26.  
  27. /*
  28. ** Make sure ADPro is running
  29. */
  30. IF ~show(ports,'ADPro') THEN
  31. DO
  32.   Address COMMAND 'C:Assign ADPRO: '||adprodir
  33.   Address COMMAND 'Run >NIL: ADPRO:ADPro MAXMEM=5000000 BEHIND'
  34.   Address COMMAND 'C:Wait 5'
  35.   IF ~show(ports,'ADPro') THEN EXIT
  36. END
  37.  
  38.  
  39. /*
  40. ** Screen types for ADPro
  41. */
  42. LORES     = 0
  43. HIRES     = 1
  44. LACE      = 2
  45. PAL       = 4
  46. XOVERSCAN = 8
  47. YOVERSCAN = 16
  48.  
  49. HIRESBIT  = 0
  50. LACEBIT   = 1
  51.  
  52.  
  53. /*
  54. ** Now create the background picture ...
  55. */
  56. SCREEN_TYPE  HIRES+LACE
  57. LFORMAT    'BACKDROP'
  58. LOAD    dummy numx*sizex+XSPACING numy*sizey+YSPACING COLOR 255 128 220
  59. OPERATOR  RECTANGLE 0 0 numx*sizex+XSPACING numy*sizey+YSPACING 5 200 30 80 100
  60.  
  61. /*
  62. ** Load the small images
  63. */
  64.  
  65. do y=0 to numy-1
  66.  
  67.   do x=0 to numx-1
  68.  
  69.     LFORMAT 'UNIVERSAL'
  70.     LOAD    'T:__contact/' || numx*y+x XSPACING+x*sizex YSPACING+y*sizey 100 0 0 0
  71.   end
  72. end
  73.  
  74.  
  75. /*
  76. ** Now save the image
  77. */
  78. SFORMAT 'JPEG'
  79. SAVE    destname IMAGE 50
  80.  
  81.